Top 10k strings from Premier League (1985)(E&J Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
13 COUNT=COUNT+1
8 ;" ":
6 )+B(TEAM,N,1
5 ;" "
5 )=E(TEAM,5
4 )+B(TEAM,N,2
3 S(TEAM,COUNT)=V
3 B(TEAM,N,1
3 )=E(TEAM,3
3 )=E(TEAM,1
2 pl
2 POST=POST+1
2 PLAYER=PLAYER+
2 MONEY=MONEY+TEST:
2 LOAN=LOAN+
2 D$(PLAYER,1
2 C$(TEAM,PLAYER)="M"
2 C$(TEAM,PLAYER)="A"
2 C$(TEAM,N)="M"
2 C$(TEAM,N)="D"
2 C$(TEAM,N)="A"
2 BGOAL=BGOAL+B(TEAM,N,3
2 B(T(F),PLAYER,3
2 B(F,TEAM+N,2
2 ;"YOU HAVE BEEN SACKED":
2 ;"WEEKLY BAL. `:";BAL
2 ;"Enter new name":
2 ;"3) Return to main menu":
2 ,G)=PLAYER
2 )=E(TEAM,7
2 )=E(TEAM,2
2 )=E(T(N),7
2 )=E(T(F),8
2 )=B(T(F),PLAYER,3
2 )=B(F,TEAM+N,2
2 )=A(T(F),7
2 );" ";B(1
2 )-A(TEAM,6
2 )+E(T(F),8
2 )+(E(TEAM,2
2 (B(T(F),S,1
1 ________________________________
1 Z$=C$(TEAM,PLAYER)
1 Z$)>2000000
1 You owe the Bank `";LOAN:
1 WG=ABILITY*500
1 WEEK=WEEK+1
1 TEST>GDICE
1 TEST=TEST+
1 TEST=25000
1 TEST<25000
1 TEAM=TEAM+1
1 TEAM=BTEAM
1 SQUAD=SQUAD+1
1 SEASON=SEASON+1
1 S(TEAM,N)=17
1 POINTS=A(TEAM,7
1 POINTS=A(F,7
1 POINTS<A(F,7
1 P>(FEE*.95
1 N=S(TEAM,N)
1 MONEY=MONEY-Z:
1 MONEY=MONEY-P:
1 MONEY=MONEY+Z:
1 MONEY=MONEY+TEST
1 MONEY=MONEY+FEE:
1 MONEY=750000
1 MONEY+TEST<0
1 MCOUNT>STYLE
1 MCOUNT=MCOUNT+1
1 LOAN>1000000
1 LOAN=LOAN-Z:
1 LOAN=LOAN+Z:
1 J$="Q.P.R."
1 GOOD=GOOD-1
1 GOOD=GOOD+1
1 GAMES=GAMES+8
1 G$="SHEFF.WED.":
1 FORM=FORM+B(A,N,2
1 FEE=(B(TEAM,PLAYER,1
1 Enter squad No. or (M) for menu
1 E(BTEAM,G)=E(9
1 DICE=DICE+SKILL:
1 D$(S,T(F))
1 CTTEAM=CTTEAM+1
1 CHAMP=CHAMP+1
1 C$(TEAM,V)="M"
1 C$(TEAM,V)="D"
1 C$(TEAM,V)="A"
1 C$(TEAM,S)=Z$
1 C$(TEAM,PLAYER)=" ":
1 C$(TEAM,PLAYER)=" "
1 C$(TEAM,N)=C$(1
1 C$(TEAM,N)=" "
1 C$(T(F),S)="M"
1 C$(T(F),S)="A"
1 BTEAM=TEAM
1 BGOAL>(AGOAL*1.5
1 BAL=BAL-TEST:
1 B(TEAM,PLAYER,N)=0
1 B(TEAM,N,F)=B(1
1 B(F,TEAM,1
1 B(F,TEAM+2
1 B$(B)=" "
1 AGOAL>(BGOAL*1.5
1 AGOAL=AGOAL+B(1
1 ABILITY=ABILITY+B(A,N,1
1 ABILITY=ABILITY+B(1
1 ;n;") ";A$(n):
1 ;n;" ";A$(n):
1 ;C$(TEAM,PLAYER);" A-";B(TEAM,PLAYER,1
1 ;C$(TEAM,N):
1 ;C$(A,N);" ";B(A,N,1
1 ;B(TEAM,N,1
1 ;B$(N);" ";C$(1
1 ;A$(TEAM);" OFFER `";FEE
1 ;A$(TEAM);" ";"PLAYER No. ";PLAYER
1 ;A$(T(D));" ";E(T(D),8
1 ;A$(T(D));" ";E(T(D),8
1 ;A$(A);" ";ABILITY;" ";FORM:
1 ;"________________________________"
1 ;"YOU HAVE BEEN SACKED":
1 ;"WEEK - ";WEEK;" ":
1 ;"WAGES/EXP. `:";TEST
1 ;"THIS WEEK":
1 ;"RECEIPTS `:";TEST:
1 ;"Player to replace or R to return"
1 ;"Player affected";
1 ;"PREMIER LEAGUE"
1 ;"PLEASE WAIT":
1 ;"P R E M I E R L E A G U E "
1 ;"NO MORE SELLING THIS WEEK":
1 ;"NO MORE PLAYERS ON OFFER":
1 ;"NO MORE DEALS THIS WEEK":
1 ;"Loading"
1 ;"INTEREST `:";
1 ;"Estimated value ";B(TEAM,PLAYER,1
1 ;"Enter your offer"
1 ;"ENTER MANAGERS NAME":
1 ;"Due to your lack of success":
1 ;"Do you accept ?":
1 ;"CURRENT BALANCE `";MONEY:
1 ;"ATTENDANCE :";TEST
1 ;"AMOUNT OWED `";LOAN
1 ;"4) Return to main menu":
1 ;"3) Save game ":
1 ;"3) Return to main menu"
1 ;"2) Sell a player":
1 ;"2) Pay off loan":
1 ;"2) League Table ":
1 ;"2) Change team name":
1 ;"1) Take out loan":
1 ;"1) List fixtures":
1 ;"1) Change player name":
1 ;"1) Buy a player":
1 ;"- Offer ";N:
1 ;"(D)efence,(M)idfield,(A)ttack":
1 ;"(";E(T(2
1 ;"(";E(T(1
1 ;" You finished 8th in league":
1 ;" YOU DO NOT HAVE ENOUGH MONEY IN YOU ACCOUNT - GET A LOAN ! ":
1 ;" TRANSFER MARKET - BUY A PLAYER ";" Enter Team & Player number "
1 ;" Score after 70 minutes ":
1 ;" Score after 25 minutes ":
1 ;" SUBSTITUTE - ";B$(Z);" ";B(1
1 ;" SORRY THIS PLAYER UNAVAILABLE ":
1 ;" SKILL LEVEL - ";SKILL;" SEASON - ";SEASON:
1 ;" Press (M) to return to menu ":
1 ;" PRESS (M) TO RETURN TO MENU ":
1 ;" PRESS (M) TO RETURN TO MENU "
1 ;" PLAYER INJURED DURING MATCH ":
1 ;" PLAYER INJURED - NOT AVAILABLE ";
1 ;" OFFER NOT ACCEPTED ":
1 ;" KICK OFF ":
1 ;" Half time ":
1 ;" FULL TIME ":
1 ;" Enter team number of substitute";
1 ;" ENTER (P)RINT OR (C)ONTINUE "
1 ;" DO YOU WISH TO USE YOUR SUB ":
1 ;" DO YOU HAVE A PRINTER CONNECTED ":
1 ;" 6) Financial/Save game"
1 ;" 5) Transfer market"
1 ;" 4) Prepare/play next fixture"
1 ;" 3) Print squad details"
1 ;" 2) Print league/fixtures"
1 ;" 1) Change player/team name"
1 ;" ";D$(N,1
1 ;" ";B$(N);" "
1 ;" press R - return or S - save"
1 ;" TEAM P W D L F A PT":
1 ;" POOR SESSION - PLAYER GETS SLIGHT KNOCK ":
1 ;" P R E M I E R L E A G U E ":
1 ;" MAX 12 LETTERS":
1 ;" GOOD SESSION SOME IMPROVEMENT ":
1 ;" BAD SESSION - PLAYER INJURED "
1 ;" ";B$(N):
1 ;" VERY GOOD SESSION ABILITY MUCH IMPROVED ":
1 ;" Team style 4 - 4 - 2 "
1 ;" Team style 4 - 3 - 3 "
1 ;" Team strengths:- "
1 ;" PLAYER TYPE A F G No.":
1 ;" Number in team = ";CTTEAM;" ":
1 ;" HOME TEAM ":
1 ;" GOALS ":
1 ;" FORM ":
1 ;" ENTER SKILL LEVEL REQUIRED ":
1 ;" E N D O F S E A S O N ":
1 ;" THIS PLAYER NOT AVAILABLE ":
1 ;" SPECIAL TRAINING SESSION "
1 ;" PLAYER NOT TRANSFERRED ":
1 ;" SEASON TICKET SALES ":
1 ;" CHAMPIONSHIP WINS - ";CHAMP;" "
1 ;" Training Report ":
1 ;" S A V E G A M E ":
1 ;" PLAYER TRANSFERRED ":
1 ;" From E & J SOFTWARE":
1 ;" FROM 1 TO 5 ":
1 ;" LEAGUE TABLE "
1 ;" HALF TIMES SCORES "
1 ;" OTHER RESULTS "
1 ;" AVERAGE SESSION ":
1 ;" PLAYER SOLD "
1 ;" WELL DONE ! YOU HAVE WON THE PREMIER CHAMPIONSHIP ":
1 ;" PLEASE WAIT ":
1 ;" HOME TEAM "
1 ;" ":
1 ;" ":
1 4050
1 ,N)=C$(TEAM,PLAYER):
1 ,N);" ";B(1
1 ,G)=E(TEAM,G):
1 *** PREMIER LEAGUE ***
1 *** PICK SUB ***
1 )>(E(T(N+1
1 )>(E(T(N),5
1 )=B(TEAM,PLAYER,3
1 )=B(TEAM,PLAYER,2
1 )=B(TEAM,PLAYER,1
1 )=A(T(F),6
1 )=A(T(F),5
1 )=A(T(F),4
1 )=A(T(F),3
1 )=A(T(F),2
1 )=A(T(F),1
1 )="WEST HAM"
1 )="WATSON":
1 )="WADDLE":
1 )="STEVENS":
1 )="SHILTON":
1 )="ROBSON":
1 )="PEARCE":
1 )="NOTTS FOREST":
1 )="MAN.UTD.":
1 )="MABBUTT":
1 )="LIVERPOOL":
1 )="LINEKER":
1 )="HODDLE":
1 )="EVERTON":
1 )="COTTEE"
1 )="BUTCHER"
1 )="BEARDSLEY":
1 )="BARNES":
1 )="ASTON VILLA"
1 )="ARSENAL":
1 )="ADAMS":
1 );"Manager ";X$
1 );" ";A$(N):
1 );" ";C$(1
1 );" ";B(A,N,2
1 );" G-";B(TEAM,PLAYER,3
1 );" F-";B(TEAM,PLAYER,2
1 )-(E(T(N+1
1 )-(E(T(N),1
1 )+(B(TEAM,PLAYER,3
1 )+(B(TEAM,PLAYER,2
1 (TEST+MONEY)
1 (TEST*2.15
1 (((E(T(N+1
1 (((E(T(N),3
1 $(F,N)="D":
1 "ENTER AMOUNT TO PAY `";
1 "ENTER AMOUNT REQUIRED `";
1 Select option and press enter
1 Press enter to continue
1 FINAL TEAM
1 Enter(D)rop or (P)ick a player
1 Enter squad No. to play
1 Enter squad No. to drop
1 Enter option required
1 Enter Y or N to continue
1 midfield
1 defence
1 attack
1 No individual affected
1 FINAL OFFER DO YOU ACCEPT ?
1 YOUR SQUAD IS TO SMALL
1 YOU HAVE A FULL SQUAD
1
1